home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Games / Misc / Siege+THF / Siege_THF_Install < prev    next >
Text File  |  2000-01-01  |  8KB  |  255 lines
  1. (set #ver (/ @installer-version 65536))
  2. (set #inst1 "Heretic_IIA")
  3. (if (>= #ver 44)
  4.     (
  5.     (effect "lower_right" "radial" $C85037 $000000)
  6.     (showmedia "symbol" "Heretic_IIA:Installer Data/backdrop.iff" "center" "none" 0)
  7.     )
  8. )
  9.  
  10. (if (< #ver 43)
  11.     (
  12.     (exit "Your Installer is too old. Get a new version from Aminet" (quiet))
  13.     )
  14. )
  15.  
  16. (if (= @language "deutsch")
  17. (
  18.  (set #choice-yes "\x1B[2pJa")
  19.  (set #choice-no "Nein")
  20.  (set #continue "Weiter")
  21.  (set #welcome-prompt (cat
  22.     "Willkommen zum Heretic II Siege Installations-Programm. Es wird Sie schrittweise "
  23.     "durch die Installation führen. Wenn Sie Probleme bekommen, können Sie durch "
  24.     "den Hilfe-Knopf weitere Informationen erhalten. Dieses Programm installiert "
  25.     "auch ein Update für THF.\n"
  26.     "Bitte wählen Sie nun den Installations-Modus."
  27.  ))
  28.     (set #licence-msg (cat
  29.     "Siege ist *kein* offizielles Hyperion Produkt, und neben Hilfe bei Problemen "
  30.         "bei der Installation können wir für Siege *keinerlei* Support bieten, auch etwa "
  31.     "keine Bugfixes. Wir garantieren nicht einmal, dass es auf jedem System läuft."
  32.     "Just take it as it is."
  33.     ))
  34.     (set #not-installed "Heretic II muss installiert sein, um The Siege zu installieren.")
  35.     (set #extract-base "Programm-Dateien werden auf die Festplatte kopiert...")
  36.     (set #finish-msg "The Siege wurde in der Schublade %s erfolgreich installiert\n")
  37.     (set #see-readme "\x1B[2pEinen Blick auf die LIESMICH-Datei werfen")
  38.     (set #register-msg (cat
  39.       "Um die Installation abzuschließen werden Sie jetzt nach Ihrer Serien-Nummer und "
  40.       "Benutzer-Informationen wie Namen und Anschrift gefragt. Sie müssen dies ausfüllen "
  41.       "um den Kundendienst in Anspruch zu nehmen. Geben Sie die Seriennummer sehr sorgfältig "
  42.       "und genau so wie abgedruckt ein (einschließlich der Bindestriche), da die Installation "
  43.       "ansonsten nicht funktioniert."
  44.     ))
  45.  
  46.  (set #not-successful "Die The Siege Installation war nicht erfolgreich. Bitte wiederholen Sie diese, bevor Sie das Update installieren.")
  47. )
  48. (
  49.  (set #choice-yes "\x1B[2pYes")
  50.  (set #choice-no "No")
  51.  (set #continue "Continue")
  52.  (set #welcome-prompt (cat
  53.     "Welcome to the Heretic II The Siege Installation Program. This Utility "
  54.     "will guide you through the Installation in a step-by-step "
  55.     "process. At any time, "
  56.     "if you're stuck, you can press the help button to get more detailed "
  57.     "information. This utility also installs an update for THF.\n"
  58.     "Please indicate your level of expertise."
  59.  ))
  60.     (set #licence-msg (cat
  61.     "Siege is *no* official Hyperion product. This means we can *not* provide "
  62.     "any help in case of problems asides from simple installation help and especially "
  63.         "no bugfixes. We do not even guarantee this will run on every system."
  64.     "Just take it as it is."
  65.     ))
  66.     (set #not-installed "Heretic II needs to be installed to install The Siege.")
  67.     (set #extract-base "Copying program files to your harddisk...")
  68.     (set #finish-msg "The Siege has been installed to %s\n on your system")
  69.     (set #see-readme "\x1B[2pHave a look at the README-File")
  70.     (set #register-msg (cat
  71.     "To conclude the installation process you will be asked for your serial number and "
  72.     "user information, like name, address, city and country. You must fill them "
  73.     "in, otherwise we will not be able to answer your support questions. "
  74.     "Be very careful to type in the serial number as it is printed, including "
  75.     "dashes, otherwise your installation will not work."
  76.     ))
  77.  (set #not-successful "The Siege Installation was unsuccessfull. Please reinstall the game before installing the update.")
  78. )
  79. )
  80.  
  81. (procedure P_BuildCommandline arg1
  82.     (set #cmdline
  83.     (cat
  84.         "c/hUnpackH2 -archive \""
  85.         (arg1)
  86.         "\" -dest \""
  87.         (getenv "HereticII/InstallationPath")
  88.         "\""
  89.     )
  90.     )
  91. )
  92.  
  93. (procedure P_DoRegister
  94.     (message #register-msg)
  95.     (set #cmdline (cat
  96.     "Heretic_IIA:C/RegisterGUI \""
  97.     (tackon @default-dest "h2siege/game.dll")
  98.     "\" "
  99.     ))
  100.     (set #retval
  101.     (run #cmdline
  102.     (help @run-help)
  103.     ))
  104.     (if (= #retval 10)
  105.     (exit "Internal Error during registering. Please contact tech suport" (quiet))
  106.     )
  107.     (if (= #retval 20)
  108.     (exit #user-abort (quiet))
  109.     )
  110. )
  111.  
  112.  
  113. (procedure P_DoRegister2
  114.     (message #register-msg)
  115.     (set #cmdline (cat
  116.     "Heretic_IIA:C/RegisterGUI \""
  117.     (tackon @default-dest "THF/game.dll")
  118.     "\" "
  119.     ))
  120.     (set #retval
  121.     (run #cmdline
  122.     (help @run-help)
  123.     ))
  124.     (if (= #retval 10)
  125.     (exit "Internal Error during registering. Please contact tech suport" (quiet))
  126.     )
  127.     (if (= #retval 20)
  128.     (exit #user-abort (quiet))
  129.     )
  130. )
  131.  
  132.  
  133. (procedure P_AskDisk 
  134.     (set #curvol #inst1)
  135.     (set #curvol (cat #curvol ":"))
  136. )
  137.  
  138. (welcome #welcome-prompt)
  139. (P_AskDisk)
  140. (complete 0)
  141. (set #flag (exists "ENV:HereticII/InstallationPath"))
  142. (if (= #flag 1)
  143.     (
  144.     (set @default-dest (getenv "HereticII/InstallationPath"))
  145.     (if (exists (tackon @default-dest "installer-cookie"))
  146.     (exit #not-successful (quiet))
  147.   )
  148.     )
  149.     (
  150.     (exit #not-installed (quiet))
  151.     )        
  152. )
  153.  
  154. (set #flag
  155.     (askchoice
  156.         (prompt #licence-msg)
  157.         (help @askchoice-help)
  158.         (default 0)
  159.         (choices #continue)
  160.     )
  161.     )
  162.     (if (= #flag 1) (exit (quiet)))
  163.  
  164. (set #dest-dir @default-dir)
  165.  
  166. (complete 20)
  167.  
  168. (P_BuildCommandLine "siege.hpa")
  169. (working #extract-base)
  170. (set #status
  171.     (run #cmdline
  172.         (help @run-help)
  173.     )
  174. )
  175.  
  176. (if (= #status 2)
  177.     (
  178.     (exit #user-abort (quiet))
  179.     )
  180. )
  181. (complete 50)
  182.  
  183. (complete 80)
  184. (if (not(exists(tackon @default-dest "update-docs/README")))
  185. (copyfiles (source"README") (dest (tackon @default-dest "update-docs")))
  186. )
  187.  
  188. (complete 90)
  189. (if (not(exists("env:Siege")))(makedir "ENV:Siege"))
  190. (if (not(exists("envarc:Siege")))(makedir "envarc:Siege"))
  191. (copyfiles(source"fighter_Att")(dest "env:Siege"))
  192. (copyfiles(source"fighter_Def")(dest "env:Siege"))
  193. (copyfiles(source"fighter_noteam")(dest "env:Siege"))
  194. (copyfiles(source"cleric_Att")(dest "env:Siege"))
  195. (copyfiles(source"cleric_Def")(dest "env:Siege"))
  196. (copyfiles(source"cleric_noteam")(dest "env:Siege"))
  197. (copyfiles(source"wizard_Att")(dest "env:Siege"))
  198. (copyfiles(source"wizard_Def")(dest "env:Siege"))
  199. (copyfiles(source"Wizard_noteam")(dest "env:Siege"))
  200. (copyfiles(source"necro_Att")(dest "env:Siege"))
  201. (copyfiles(source"necro_Def")(dest "env:Siege"))
  202. (copyfiles(source"necro_noteam")(dest "env:Siege"))
  203. (copyfiles(source"succubus_Att")(dest "env:Siege"))
  204. (copyfiles(source"succubus_Def")(dest "env:Siege"))
  205. (copyfiles(source"succubus_noteam")(dest "env:Siege"))
  206. (copyfiles(source"male_Att")(dest "env:Siege"))
  207. (copyfiles(source"male_Def")(dest "env:Siege"))
  208. (copyfiles(source"male_noteam")(dest "env:Siege"))
  209. (copyfiles(source"female_Att")(dest "env:Siege"))
  210. (copyfiles(source"female_Def")(dest "env:Siege"))
  211. (copyfiles(source"female_noteam")(dest "env:Siege"))
  212.  
  213. (copyfiles(source"fighter_Att")(dest "envarc:Siege"))
  214. (copyfiles(source"fighter_Def")(dest "envarc:Siege"))
  215. (copyfiles(source"fighter_noteam")(dest "envarc:Siege"))
  216. (copyfiles(source"cleric_Att")(dest "envarc:Siege"))
  217. (copyfiles(source"cleric_Def")(dest "envarc:Siege"))
  218. (copyfiles(source"cleric_noteam")(dest "envarc:Siege"))
  219. (copyfiles(source"wizard_Att")(dest "envarc:Siege"))
  220. (copyfiles(source"wizard_Def")(dest "envarc:Siege"))
  221. (copyfiles(source"Wizard_noteam")(dest "envarc:Siege"))
  222. (copyfiles(source"necro_Att")(dest "envarc:Siege"))
  223. (copyfiles(source"necro_Def")(dest "envarc:Siege"))
  224. (copyfiles(source"necro_noteam")(dest "envarc:Siege"))
  225. (copyfiles(source"succubus_Att")(dest "envarc:Siege"))
  226. (copyfiles(source"succubus_Def")(dest "envarc:Siege"))
  227. (copyfiles(source"succubus_noteam")(dest "envarc:Siege"))
  228. (copyfiles(source"male_Att")(dest "envarc:Siege"))
  229. (copyfiles(source"male_Def")(dest "envarc:Siege"))
  230. (copyfiles(source"male_noteam")(dest "envarc:Siege"))
  231. (copyfiles(source"female_Att")(dest "envarc:Siege"))
  232. (copyfiles(source"female_Def")(dest "envarc:Siege"))
  233. (copyfiles(source"female_noteam")(dest "envarc:Siege"))
  234. (copyfiles(source"Siege")(dest @default-dest))
  235. (copyfiles(source"Siege.info")(dest @default-dest))
  236. (copyfiles(source"Siege.prefs")(dest @default-dest))
  237.  
  238. (complete 100)
  239. (set #opts
  240.     (askoptions
  241.     (help @askoptions-help)
  242.     (prompt (#finish-msg @default-dest))
  243.     (choices #see-readme)
  244.     (default 1)
  245.     )
  246. )
  247.  
  248. (if (IN #opts 0)
  249.     (if (>= #ver 44)
  250.     (showmedia "readme" "README" "upper_right" "medium" 1)
  251.     (run "sys:Utilities/Multiview README")
  252.     )
  253. )
  254.  
  255.